home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 5 / Amiga Tools 5.iso / tools / developer-tools / assembler-tools / apathysource / fastest / make4bittexture.amos / make4bittexture.amosSourceCode
Encoding:
AMOS Source Code  |  1980-01-27  |  350 b   |  17 lines
  1. Load Iff "!intro:fastest/textures/GBG.iff",0
  2.  
  3. Reserve As Work 16,256/2*128
  4. COUNT=0
  5.  
  6. For Y=0 To 127 Step 1
  7.    For X=0 To 255 Step 2
  8.       A=Point(X,Y) and %1111
  9.       B=Point(X+1,Y) and %1111
  10.       BYTE=A*16+B
  11.  
  12.       Poke Start(16)+COUNT,BYTE
  13.       Add COUNT,1
  14.    Next 
  15. Next 
  16.  
  17. Bsave "!intro:fastest/textures/GBG.4bit",Start(16) To Start(16)+Length(16)